﻿'From Pharo1.3 of 16 June 2011 [Latest update: #13307] on 1 November 2011 at 2:32:18 pm'!TestCase subclass: #TesteLaser	instanceVariableNames: 'linhas colunas'	classVariableNames: ''	poolDictionaries: ''	category: 'Jogo-Do-Laser-Testes'!!TesteLaser methodsFor: 'as yet unclassified' stamp: 's 10/11/2011 17:26'!segmentoEstaAtivo| celula | 	celula := Celula new.			celula segmentoEstaAtivo: #cima.			self assert: celula segmentoEstaAtivo isNil description: ' deveria ter saida vindo de #cima para uma celula alvo.'.			celula segmentoEstaAtivo: #esquerda.	self deny celula saidaLaser isNil description: 'NÃO deveria ter saida vindo de #esquerda para uma celula alvo.'.		celula segmentoEstaAtivo: #baixo.	self assert: celula saidaLaser isNil description: 'deveria ter saida vindo de #baixo para uma celula alvo.'.		celula segmentoEstaAtivo: #direita.	self deny: celula saidaLaser isNil description: 'NAO deveria ter saida vindo de #direita para uma celula alvo.'.	! !